9000 DEF SEG:O!(0)=PEEK(857)*256+PEEK(856) 'Vlist
9010 WHILE O!(0)<PEEK(859)*256+PEEK(858):O!(1)=PEEK(O!(0))
9020 O!(0)=O!(0)+2:IF PEEK(O!(0)-1)>127 THEN PRINT "FN";
9030 PRINT CHR$(PEEK(O!(0)-1) AND 32639);
9040 PRINT STRING$(SGN(PEEK(O!(0))),PEEK(O!(0)));
9050 O!(0)=O!(0)+1:O!(2)=PEEK(O!(0))
9060 WHILE O!(2):O!(0)=O!(0)+1:O!(2)=O!(2)-1
9070 PRINT CHR$(PEEK(O!(0)) AND 32639);:WEND:O!(0)=O!(0)+1
9080 PRINT MID$(" %$!...#",O!(1),1),:O!(0)=O!(0)+O!(1):WEND
9090 WHILE O!(0)<PEEK(861)*256+PEEK(860):O!(1)=PEEK(O!(0))
9100 O!(0)=O!(0)+2:PRINT CHR$(PEEK(O!(0)-1));
9110 PRINT STRING$(SGN(PEEK(O!(0))),PEEK(O!(0)));
9120 O!(0)=O!(0)+1:O!(2)=PEEK(O!(0))
9130 WHILE O!(2):O!(0)=O!(0)+1:O!(2)=O!(2)-1
9140 PRINT CHR$(PEEK(O!(0)) AND 32639);:WEND
9150 O!(0)=O!(0)+1:PRINT MID$(" %$!...#",O!(1),1);"(",
9160 O!(0)=O!(0)+2+(PEEK(O!(0)+1)*256+PEEK(O!(0))):WEND
